5 IFX=0THENX=1:LOAD"SPRITE DATA",8,1
10 PRINT"[147]":POKE56,64:POKE52,64:CLR:B=87
15 POKE53280,0:POKE53281,0
20 V=53248:POKE2041,223:POKEV+40,2:POKEV+41,7:POKEV,100:POKEV+1,100
25 POKEV+16,2
30 POKEV+21,3:POKEV+39,14:POKEV+38,6:POKEV+37,1
40 POKEV+28,255:POKEV+3,104
50 FORT=0TO20:X=INT(RND(1)*999)+1:POKE1024+X,46:POKE55296+X,1:NEXT
60 X=222
70 POKE2040,X
90 X=X-1:IFX=199THENX=222
150 B=B-3:O=O+1
151 IFB<0THENPOKEV+16,0:B=255
152 IFO/2=INT(O/2)THENP=223
153 IFO/2<>INT(O/2)THENP=224
160 POKEV+2,B
161 POKE2041,P
170 IFPEEK(V+30)>0THEN200
180 GOTO70
200 POKEV+21,1:POKEV+2,0
210 FORT=225TO240:POKE2040,T
220 FORX=0TO100:NEXT
230 NEXT
240 POKEV+21,0:X=PEEK(V+30)
250 POKE783,PEEK(783)AND254:POKE781,23:POKE782,13:SYS65520:PRINT"<PRESS A KEY>"
260 POKE198,0:WAIT198,1
270 PRINT"[147]WANT TO SEE IT AGAIN? (Y/N)":POKE198,0:WAIT198,1:GETZ$
280 IFZ$<>"Y"ANDZ$<>"N"THEN270
290 IFZ$="Y"THEN10
300 :
305 RESTORE:POKE56,160
306 FORX=0TO7:POKE53276,PEEK(53276)AND(255-2^X):NEXT
310 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
320 POKE631,13:POKE632,13:POKE198,2:END